AppleScript - The Beta Release/AppleScript - The Beta Release.iso/Example Scripts/Example Scripts (as text)/Quill Scripts/Proportional Resize

Text File | 1992-12-02 | 359 b | 11 lines | [TEXT/ToyS]

display dialog ¬
    "By what percentage should I increase point size?" default answer "10"
if button returned of result = "ok" then
    set percentage to (text returned of result) ÷ 100 + 1

    tell window 1 of application "Quill"
        repeat with i from 1 to word count
            set size of word i to ((size of word i) * percentage) as integer
        end repeat
    end tell
end if